/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / x11 / x-font-menu.elc.z / x-font-menu.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 36 3a 35 35 20 31 | 39 39 38 0a 3b 3b 3b 20 |:56:55 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 78 31 31 2f |s-20.3/l|isp/x11/|
|000000a0| 78 2d 66 6f 6e 74 2d 6d | 65 6e 75 2e 65 6c 0a 3b |x-font-m|enu.el.;|
|000000b0| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000c0| 20 32 30 2e 34 20 22 45 | 6d 65 72 61 6c 64 22 20 | 20.4 "E|merald" |
|000000d0| 58 45 6d 61 63 73 20 20 | 4c 75 63 69 64 2e 0a 3b |XEmacs  |Lucid..;|
|000000e0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000f0| 69 6f 6e 20 32 2e 32 35 | 20 58 45 6d 61 63 73 3b |ion 2.25| XEmacs;|
|00000100| 20 32 32 2d 4d 61 72 2d | 39 36 2e 0a 3b 3b 3b 20 | 22-Mar-|96..;;; |
|00000110| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|00000120| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|00000130| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000140| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000150| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 39 2e 0a 0a |t in Ema|cs 19...|
|00000160| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000170| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000180| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000190| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|000001a0| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|000001b0| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion)..  |   (stri|
|000001c0| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|000001d0| 65 72 73 69 6f 6e 20 22 | 32 30 22 29 29 29 0a 20 |ersion "|20"))). |
|000001e0| 20 20 20 28 65 72 72 6f | 72 20 22 60 78 2d 66 6f |   (erro|r "`x-fo|
|000001f0| 6e 74 2d 6d 65 6e 75 2e | 65 6c 27 20 77 61 73 20 |nt-menu.|el' was |
|00000200| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|00000210| 63 73 20 32 30 22 29 29 | 0a 0a 28 6f 72 20 28 62 |cs 20"))|..(or (b|
|00000220| 6f 75 6e 64 70 20 27 63 | 75 72 72 65 6e 74 2d 6c |oundp 'c|urrent-l|
|00000230| 6f 61 64 2d 6c 69 73 74 | 29 20 28 73 65 74 71 20 |oad-list|) (setq |
|00000240| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000250| 74 20 6e 69 6c 29 29 0a | 0a 0a 28 63 75 73 74 6f |t nil)).|..(custo|
|00000260| 6d 2d 64 65 63 6c 61 72 | 65 2d 76 61 72 69 61 62 |m-declar|e-variab|
|00000270| 6c 65 20 27 66 6f 6e 74 | 2d 6d 65 6e 75 2d 69 67 |le 'font|-menu-ig|
|00000280| 6e 6f 72 65 2d 73 63 61 | 6c 65 64 2d 66 6f 6e 74 |nore-sca|led-font|
|00000290| 73 20 27 74 20 22 2a 49 | 66 20 6e 6f 6e 2d 6e 69 |s 't "*I|f non-ni|
|000002a0| 6c 2c 20 74 68 65 6e 20 | 74 68 65 20 66 6f 6e 74 |l, then |the font|
|000002b0| 20 6d 65 6e 75 20 77 69 | 6c 6c 20 74 72 79 20 74 | menu wi|ll try t|
|000002c0| 6f 20 73 68 6f 77 20 6f | 6e 6c 79 20 62 69 74 6d |o show o|nly bitm|
|000002d0| 61 70 20 66 6f 6e 74 73 | 2e 22 20 3a 74 79 70 65 |ap fonts|." :type|
|000002e0| 20 27 62 6f 6f 6c 65 61 | 6e 20 3a 67 72 6f 75 70 | 'boolea|n :group|
|000002f0| 20 27 78 29 0a 28 63 75 | 73 74 6f 6d 2d 64 65 63 | 'x).(cu|stom-dec|
|00000300| 6c 61 72 65 2d 76 61 72 | 69 61 62 6c 65 20 27 66 |lare-var|iable 'f|
|00000310| 6f 6e 74 2d 6d 65 6e 75 | 2d 74 68 69 73 2d 66 72 |ont-menu|-this-fr|
|00000320| 61 6d 65 2d 6f 6e 6c 79 | 2d 70 20 27 6e 69 6c 20 |ame-only|-p 'nil |
|00000330| 22 2a 49 66 20 6e 6f 6e | 2d 6e 69 6c 2c 20 74 68 |"*If non|-nil, th|
|00000340| 65 6e 20 63 68 61 6e 67 | 69 6e 67 20 74 68 65 20 |en chang|ing the |
|00000350| 64 65 66 61 75 6c 74 20 | 66 6f 6e 74 20 66 72 6f |default |font fro|
|00000360| 6d 20 74 68 65 20 66 6f | 6e 74 20 6d 65 6e 75 20 |m the fo|nt menu |
|00000370| 77 69 6c 6c 20 6f 6e 6c | 79 5c 6e 61 66 66 65 63 |will onl|y\naffec|
|00000380| 74 20 6f 6e 65 20 66 72 | 61 6d 65 20 69 6e 73 74 |t one fr|ame inst|
|00000390| 65 61 64 20 6f 66 20 61 | 6c 6c 20 66 72 61 6d 65 |ead of a|ll frame|
|000003a0| 73 2e 22 20 3a 74 79 70 | 65 20 27 62 6f 6f 6c 65 |s." :typ|e 'boole|
|000003b0| 61 6e 20 3a 67 72 6f 75 | 70 20 27 78 29 0a 28 62 |an :grou|p 'x).(b|
|000003c0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 21 ac 82 c2 |yte-code| "..!...|
|000003d0| 11 c1 0b 42 13 c2 87 22 | 20 5b 62 6f 75 6e 64 70 |...B..."| [boundp|
|000003e0| 20 64 65 76 69 63 65 2d | 66 6f 6e 74 73 2d 63 61 | device-|fonts-ca|
|000003f0| 63 68 65 20 6e 69 6c 20 | 63 75 72 72 65 6e 74 2d |che nil |current-|
|00000400| 6c 6f 61 64 2d 6c 69 73 | 74 5d 20 32 29 0a 23 40 |load-lis|t] 2).#@|
|00000410| 35 32 20 52 65 67 69 73 | 74 72 79 20 61 6e 64 20 |52 Regis|try and |
|00000420| 65 6e 63 6f 64 69 6e 67 | 20 74 6f 20 75 73 65 20 |encoding| to use |
|00000430| 77 69 74 68 20 66 6f 6e | 74 20 6d 65 6e 75 20 66 |with fon|t menu f|
|00000440| 6f 6e 74 73 2e 1f 0a 28 | 64 65 66 76 61 72 20 66 |onts...(|defvar f|
|00000450| 6f 6e 74 2d 6d 65 6e 75 | 2d 72 65 67 69 73 74 72 |ont-menu|-registr|
|00000460| 79 2d 65 6e 63 6f 64 69 | 6e 67 20 6e 69 6c 20 28 |y-encodi|ng nil (|
|00000470| 23 24 20 2e 20 31 30 34 | 33 29 29 0a 23 40 37 32 |#$ . 104|3)).#@72|
|00000480| 20 50 72 65 66 65 72 72 | 65 64 20 68 6f 72 69 7a | Preferr|ed horiz|
|00000490| 6f 6e 74 61 6c 20 61 6e | 64 20 76 65 72 74 69 63 |ontal an|d vertic|
|000004a0| 61 6c 20 66 6f 6e 74 20 | 6d 65 6e 75 20 72 65 73 |al font |menu res|
|000004b0| 6f 6c 75 74 69 6f 6e 20 | 28 65 2e 67 2e 20 22 37 |olution |(e.g. "7|
|000004c0| 35 2d 37 35 22 29 2e 1f | 0a 28 64 65 66 76 61 72 |5-75")..|.(defvar|
|000004d0| 20 66 6f 6e 74 2d 6d 65 | 6e 75 2d 70 72 65 66 65 | font-me|nu-prefe|
|000004e0| 72 72 65 64 2d 72 65 73 | 6f 6c 75 74 69 6f 6e 20 |rred-res|olution |
|000004f0| 22 2a 2d 2a 22 20 28 23 | 24 20 2e 20 31 31 35 33 |"*-*" (#|$ . 1153|
|00000500| 29 29 0a 23 40 37 38 20 | 41 20 72 65 67 65 78 70 |)).#@78 |A regexp|
|00000510| 20 6d 61 74 63 68 69 6e | 67 20 66 6f 6e 74 20 66 | matchin|g font f|
|00000520| 61 6d 69 6c 69 65 73 20 | 77 68 69 63 68 20 61 72 |amilies |which ar|
|00000530| 65 20 75 6e 69 6e 74 65 | 72 65 73 74 69 6e 67 20 |e uninte|resting |
|00000540| 28 65 2e 67 2e 20 63 75 | 72 73 6f 72 20 66 6f 6e |(e.g. cu|rsor fon|
|00000550| 74 73 29 2e 1f 0a 28 64 | 65 66 76 61 72 20 66 6f |ts)...(d|efvar fo|
|00000560| 6e 74 73 2d 6d 65 6e 75 | 2d 6a 75 6e 6b 2d 66 61 |nts-menu|-junk-fa|
|00000570| 6d 69 6c 69 65 73 20 28 | 62 79 74 65 2d 63 6f 64 |milies (|byte-cod|
|00000580| 65 20 22 c0 c1 c2 c3 c4 | 23 21 87 22 20 5b 70 75 |e ".....|#!." [pu|
|00000590| 72 65 63 6f 70 79 20 6d | 61 70 63 6f 6e 63 61 74 |recopy m|apconcat|
|000005a0| 20 69 64 65 6e 74 69 74 | 79 20 28 22 63 75 72 73 | identit|y ("curs|
|000005b0| 6f 72 22 20 22 67 6c 79 | 70 68 22 20 22 73 79 6d |or" "gly|ph" "sym|
|000005c0| 62 6f 6c 22 20 22 5c 5c | 60 41 78 2e 2e 2e 5c 5c |bol" "\\|`Ax...\\|
|000005d0| 27 22 29 20 22 5c 5c 7c | 22 5d 20 35 29 20 28 23 |'") "\\||"] 5) (#|
|000005e0| 24 20 2e 20 31 32 38 38 | 29 29 0a 23 40 37 39 20 |$ . 1288|)).#@79 |
|000005f0| 46 69 6c 74 65 72 20 74 | 68 65 20 6f 75 74 70 75 |Filter t|he outpu|
|00000600| 74 20 6f 66 20 60 66 6f | 6e 74 2d 69 6e 73 74 61 |t of `fo|nt-insta|
|00000610| 6e 63 65 2d 74 72 75 65 | 6e 61 6d 65 27 20 74 6f |nce-true|name' to|
|00000620| 20 64 65 61 6c 20 77 69 | 74 68 20 4a 61 70 61 6e | deal wi|th Japan|
|00000630| 65 73 65 20 66 6f 6e 74 | 73 65 74 73 2e 1f 0a 28 |ese font|sets...(|
|00000640| 64 65 66 61 6c 69 61 73 | 20 27 68 61 63 6b 2d 66 |defalias| 'hack-f|
|00000650| 6f 6e 74 2d 74 72 75 65 | 6e 61 6d 65 20 23 5b 28 |ont-true|name #[(|
|00000660| 66 6e 29 20 22 c0 c1 c2 | 0b 21 5c 22 ab bd c4 c5 |fn) "...|.!\"....|
|00000670| c6 0b 21 c7 5c 22 38 c5 | c2 0b 21 c1 5c 22 c8 1e |..!.\"8.|..!.\"..|
|00000680| 09 1e 5c 6e 1e 0b 0e 5c | 6e ab a0 0e 0b c4 c5 0e |..\n...\|n.......|
|00000690| 5c 6e 40 c7 5c 22 38 98 | ab 8b 0e 5c 6e 40 16 09 |\n@.\"8.|...\n@..|
|000006a0| c8 89 16 5c 6e aa 66 0e | 5c 6e 41 89 16 5c 6e ac |...\n.f.|\nA..\n.|
|000006b0| 60 0e 09 2b 87 c2 0b 21 | 87 22 20 5b 73 74 72 69 |`..+...!|." [stri|
|000006c0| 6e 67 2d 6d 61 74 63 68 | 20 22 2c 22 20 66 6f 6e |ng-match| "," fon|
|000006d0| 74 2d 69 6e 73 74 61 6e | 63 65 2d 74 72 75 65 6e |t-instan|ce-truen|
|000006e0| 61 6d 65 20 66 6e 20 38 | 20 73 70 6c 69 74 2d 73 |ame fn 8| split-s|
|000006f0| 74 72 69 6e 67 20 66 6f | 6e 74 2d 69 6e 73 74 61 |tring fo|nt-insta|
|00000700| 6e 63 65 2d 6e 61 6d 65 | 20 22 2d 22 20 6e 69 6c |nce-name| "-" nil|
|00000710| 20 72 65 74 20 66 6c 69 | 73 74 20 66 70 6e 74 5d | ret fli|st fpnt]|
|00000720| 20 36 20 28 23 24 20 2e | 20 31 35 32 30 29 5d 29 | 6 (#$ .| 1520)])|
|00000730| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 4d |.(byte-c|ode "..M|
|00000740| 88 c2 c0 c1 5c 22 87 22 | 20 5b 69 6e 73 74 61 6c |....\"."| [instal|
|00000750| 6c 2d 66 6f 6e 74 2d 6d | 65 6e 75 73 20 72 65 73 |l-font-m|enus res|
|00000760| 65 74 2d 64 65 76 69 63 | 65 2d 66 6f 6e 74 2d 6d |et-devic|e-font-m|
|00000770| 65 6e 75 73 20 6d 61 6b | 65 2d 6f 62 73 6f 6c 65 |enus mak|e-obsole|
|00000780| 74 65 5d 20 33 29 0a 23 | 40 31 30 31 20 54 68 69 |te] 3).#|@101 Thi|
|00000790| 73 20 69 73 20 75 73 65 | 64 20 74 6f 20 66 69 6c |s is use|d to fil|
|000007a0| 74 65 72 20 6f 75 74 20 | 66 6f 6e 74 20 66 61 6d |ter out |font fam|
|000007b0| 69 6c 69 65 73 20 74 68 | 61 74 20 63 61 6e 27 74 |ilies th|at can't|
|000007c0| 20 64 69 73 70 6c 61 79 | 20 41 53 43 49 49 20 74 | display| ASCII t|
|000007d0| 65 78 74 2e 0a 49 74 20 | 6d 75 73 74 20 62 65 20 |ext..It |must be |
|000007e0| 73 65 74 20 61 74 20 72 | 75 6e 2d 74 69 6d 65 2e |set at r|un-time.|
|000007f0| 1f 0a 28 64 65 66 76 61 | 72 20 78 2d 66 6f 6e 74 |..(defva|r x-font|
|00000800| 2d 72 65 67 65 78 70 2d | 61 73 63 69 69 20 6e 69 |-regexp-|ascii ni|
|00000810| 6c 20 28 23 24 20 2e 20 | 31 39 33 33 29 29 0a 23 |l (#$ . |1933)).#|
|00000820| 40 38 33 20 53 65 61 72 | 63 68 20 56 41 4c 49 53 |@83 Sear|ch VALIS|
|00000830| 54 20 66 6f 72 20 61 20 | 76 65 63 74 6f 72 20 77 |T for a |vector w|
|00000840| 68 6f 73 65 20 66 69 72 | 73 74 20 65 6c 65 6d 65 |hose fir|st eleme|
|00000850| 6e 74 20 69 73 20 65 71 | 75 61 6c 20 74 6f 20 4b |nt is eq|ual to K|
|00000860| 45 59 2e 0a 53 65 65 20 | 61 6c 73 6f 20 60 61 73 |EY..See |also `as|
|00000870| 73 6f 63 27 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |soc'...(|defalias|
|00000880| 20 27 76 61 73 73 6f 63 | 20 23 5b 28 6b 65 79 20 | 'vassoc| #[(key |
|00000890| 76 61 6c 69 73 74 29 20 | 22 c0 19 c2 c3 8d 29 87 |valist) |".....).|
|000008a0| 22 20 5b 6e 69 6c 20 65 | 6c 20 64 6f 6e 65 20 28 |" [nil e|l done (|
|000008b0| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 89 41 10 40 |byte-cod|e "..A.@|
|000008c0| 89 11 ad 8e 5c 6e 09 c3 | 48 6b ab 70 c4 c5 09 5c |....\n..|Hk.p...\|
|000008d0| 22 88 aa 69 87 22 20 5b | 76 61 6c 69 73 74 20 65 |"..i." [|valist e|
|000008e0| 6c 20 6b 65 79 20 30 20 | 74 68 72 6f 77 20 64 6f |l key 0 |throw do|
|000008f0| 6e 65 5d 20 33 29 5d 20 | 32 20 28 23 24 20 2e 20 |ne] 3)] |2 (#$ . |
|00000900| 32 30 38 34 29 5d 29 0a | 23 40 34 35 33 20 47 65 |2084)]).|#@453 Ge|
|00000910| 6e 65 72 61 74 65 73 20 | 74 68 65 20 60 46 6f 6e |nerates |the `Fon|
|00000920| 74 27 2c 20 60 53 69 7a | 65 27 2c 20 61 6e 64 20 |t', `Siz|e', and |
|00000930| 60 57 65 69 67 68 74 27 | 20 73 75 62 6d 65 6e 75 |`Weight'| submenu|
|00000940| 73 20 66 6f 72 20 74 68 | 65 20 4f 70 74 69 6f 6e |s for th|e Option|
|00000950| 73 20 6d 65 6e 75 2e 0a | 54 68 69 73 20 69 73 20 |s menu..|This is |
|00000960| 72 75 6e 20 74 68 65 20 | 66 69 72 73 74 20 74 69 |run the |first ti|
|00000970| 6d 65 20 74 68 61 74 20 | 61 20 66 6f 6e 74 2d 6d |me that |a font-m|
|00000980| 65 6e 75 20 69 73 20 6e | 65 65 64 65 64 20 66 6f |enu is n|eeded fo|
|00000990| 72 20 65 61 63 68 20 64 | 65 76 69 63 65 2e 0a 49 |r each d|evice..I|
|000009a0| 66 20 79 6f 75 20 64 6f | 6e 27 74 20 6c 69 6b 65 |f you do|n't like|
|000009b0| 20 74 68 65 20 6c 61 7a | 79 20 69 6e 76 6f 63 61 | the laz|y invoca|
|000009c0| 74 69 6f 6e 20 6f 66 20 | 74 68 69 73 20 66 75 6e |tion of |this fun|
|000009d0| 63 74 69 6f 6e 2c 20 79 | 6f 75 20 63 61 6e 20 61 |ction, y|ou can a|
|000009e0| 64 64 20 69 74 20 74 6f | 0a 60 63 72 65 61 74 65 |dd it to|.`create|
|000009f0| 2d 64 65 76 69 63 65 2d | 68 6f 6f 6b 27 20 61 6e |-device-|hook' an|
|00000a00| 64 20 74 68 61 74 20 77 | 69 6c 6c 20 6d 61 6b 65 |d that w|ill make|
|00000a10| 20 74 68 65 20 66 6f 6e | 74 20 6d 65 6e 75 73 20 | the fon|t menus |
|00000a20| 72 65 73 70 6f 6e 64 20 | 6d 6f 72 65 20 71 75 69 |respond |more qui|
|00000a30| 63 6b 6c 79 0a 77 68 65 | 6e 20 74 68 65 79 20 61 |ckly.whe|n they a|
|00000a40| 72 65 20 73 65 6c 65 63 | 74 65 64 20 66 6f 72 20 |re selec|ted for |
|00000a50| 74 68 65 20 66 69 72 73 | 74 20 74 69 6d 65 2e 20 |the firs|t time. |
|00000a60| 20 49 66 20 79 6f 75 20 | 61 64 64 20 66 6f 6e 74 | If you |add font|
|00000a70| 73 20 74 6f 20 79 6f 75 | 72 20 73 79 73 74 65 6d |s to you|r system|
|00000a80| 2c 20 0a 6f 72 20 69 66 | 20 79 6f 75 20 63 68 61 |, .or if| you cha|
|00000a90| 6e 67 65 20 79 6f 75 72 | 20 66 6f 6e 74 20 70 61 |nge your| font pa|
|00000aa0| 74 68 2c 20 79 6f 75 20 | 63 61 6e 20 63 61 6c 6c |th, you |can call|
|00000ab0| 20 74 68 69 73 20 74 6f | 20 72 65 2d 69 6e 69 74 | this to| re-init|
|00000ac0| 69 61 6c 69 7a 65 20 74 | 68 65 20 6d 65 6e 75 73 |ialize t|he menus|
|00000ad0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 72 65 |...(defa|lias 're|
|00000ae0| 73 65 74 2d 64 65 76 69 | 63 65 2d 66 6f 6e 74 2d |set-devi|ce-font-|
|00000af0| 6d 65 6e 75 73 20 23 5b | 28 26 6f 70 74 69 6f 6e |menus #[|(&option|
|00000b00| 61 6c 20 64 65 76 69 63 | 65 20 64 65 62 75 67 29 |al devic|e debug)|
|00000b10| 20 22 c0 c1 21 88 5c 6e | ae 90 0b ae 84 c4 20 89 | "..!.\n|...... .|
|00000b20| 13 3f ae 86 c5 0b 21 c6 | 61 3f 3f 85 30 02 0e 07 |.?....!.|a??.0...|
|00000b30| ac 8d c8 c9 21 ab 85 ca | cb 21 aa 81 cc 16 07 c8 |....!...|.!......|
|00000b40| c9 21 ab 83 cd aa 81 cc | 16 0e cf d0 89 89 89 89 |.!......|........|
|00000b50| 89 89 89 89 89 1e 11 1e | 12 1e 13 1e 14 1e 15 1e |........|........|
|00000b60| 16 1e 17 1e 18 1e 19 1e | 1a 1e 1b 0e 1c ac 86 dd |........|........|
|00000b70| de 0b 5c 22 aa 8e 0e 1c | 3b ab 87 df 0e 1c e0 5c |..\"....|;......\|
|00000b80| 22 aa 82 0e 1c d0 1e 21 | 89 1e 5c 22 83 56 01 0e |"......!|..\".V..|
|00000b90| 5c 22 40 16 21 e3 0e 07 | 0e 21 5c 22 83 4d 01 e3 |\"@.!...|.!\".M..|
|00000ba0| 0e 24 0e 21 5c 22 83 4d | 01 e5 e6 e7 0e 21 5c 22 |.$.!\".M|.....!\"|
|00000bb0| 21 16 18 e8 e6 e9 0e 21 | 5c 22 21 16 19 e3 0e 2a |!......!|\"!....*|
|00000bc0| 0e 21 5c 22 ac 84 eb ec | 21 88 e5 e6 e7 0e 21 5c |.!\"....|!.....!\|
|00000bd0| 22 21 16 1a e3 0e 2d 0e | 21 5c 22 ac 84 eb ec 21 |"!....-.|!\"....!|
|00000be0| 88 e6 e7 0e 21 5c 22 ee | 98 16 16 e3 0e 2f 0e 1a |....!\".|...../..|
|00000bf0| 5c 22 ac f9 f0 0e 1a 0e | 14 5c 22 ae 8e f1 0e 1a |\"......|.\".....|
|00000c00| d0 89 cf 24 0e 14 42 89 | 16 14 40 16 17 0e 1a 0e |...$..B.|..@.....|
|00000c10| 13 b6 ac 87 0e 1a 0e 13 | 42 16 13 0e 18 0e 11 b6 |........|B.......|
|00000c20| ac 87 0e 18 0e 11 42 16 | 11 0e 19 0e 12 b6 ac 87 |......B.|........|
|00000c30| 0e 19 0e 12 42 16 12 0e | 18 0e 17 e7 48 b6 ac 8c |....B...|....H...|
|00000c40| 0e 17 e7 0e 18 0e 17 e7 | 48 42 49 88 0e 19 0e 17 |........|HBI.....|
|00000c50| f2 48 b6 ac 8c 0e 17 f2 | 0e 19 0e 17 f2 48 42 49 |.H......|.....HBI|
|00000c60| 88 0e 17 f3 0e 17 f3 48 | ad 82 0e 16 49 88 0e 5c |.......H|....I..\|
|00000c70| 22 41 89 16 5c 22 84 79 | 00 2a f4 0e 12 b6 ab cf |"A..\".y|.*......|
|00000c80| f5 1e 36 0e 12 d0 1e 37 | 1e 38 0e 37 ac a4 0e 38 |..6....7|.8.7...8|
|00000c90| ab a0 0e 36 40 0e 38 40 | f9 5a 56 ab 8e 0e 36 40 |...6@.8@|.ZV...6@|
|00000ca0| 0e 38 40 f9 5c 5c 57 ab | 83 cf 16 37 0e 38 41 16 |.8@.\\W.|...7.8A.|
|00000cb0| 38 aa 58 0e 37 2a ac 88 | 0e 36 40 0e 12 42 16 12 |8.X.7*..|.6@..B..|
|00000cc0| 0e 36 41 89 16 36 ac 3c | fa f4 0e 12 5c 22 16 12 |.6A..6.<|....\"..|
|00000cd0| 29 fb 0e 13 fc 5c 22 16 | 13 fb 0e 11 fc 5c 22 16 |)....\".|.....\".|
|00000ce0| 11 fb 0e 12 fd 5c 22 16 | 12 0e 14 d0 1e 17 89 1e |.....\".|........|
|00000cf0| 3e ab a4 0e 3e 40 89 16 | 17 e7 fb 0e 17 e7 48 fc |>...>@..|......H.|
|00000d00| 5c 22 49 88 0e 17 f2 fb | 0e 17 f2 48 fd 5c 22 49 |\"I.....|...H.\"I|
|00000d10| 88 0e 3e 41 89 16 3e ac | 5c 5c 2a c0 ff 21 88 0b |..>A..>.|\\*..!..|
|00000d20| 0e 40 b7 89 16 15 ac 8b | 0b 43 0e 40 42 89 16 40 |.@......|.C.@B..@|
|00000d30| 40 16 15 0e 15 f1 0e 14 | 81 41 00 81 42 00 0e 13 |@.......|.A..B...|
|00000d40| 5c 22 81 41 00 81 43 00 | 0e 12 5c 22 81 41 00 81 |\".A..C.|..\".A..|
|00000d50| 44 00 0e 11 5c 22 24 a1 | 88 0e 15 41 2e 0b 87 22 |D...\"$.|...A..."|
|00000d60| 20 5b 6d 65 73 73 61 67 | 65 20 22 47 65 74 74 69 | [messag|e "Getti|
|00000d70| 6e 67 20 6c 69 73 74 20 | 6f 66 20 66 6f 6e 74 73 |ng list |of fonts|
|00000d80| 20 66 72 6f 6d 20 73 65 | 72 76 65 72 2e 2e 2e 20 | from se|rver... |
|00000d90| 22 20 6e 6f 6e 69 6e 74 | 65 72 61 63 74 69 76 65 |" nonint|eractive|
|00000da0| 20 64 65 76 69 63 65 20 | 73 65 6c 65 63 74 65 64 | device |selected|
|00000db0| 2d 64 65 76 69 63 65 20 | 64 65 76 69 63 65 2d 74 |-device |device-t|
|00000dc0| 79 70 65 20 78 20 78 2d | 66 6f 6e 74 2d 72 65 67 |ype x x-|font-reg|
|00000dd0| 65 78 70 2d 61 73 63 69 | 69 20 66 65 61 74 75 72 |exp-asci|i featur|
|00000de0| 65 70 20 6d 75 6c 65 20 | 63 68 61 72 73 65 74 2d |ep mule |charset-|
|00000df0| 72 65 67 69 73 74 72 79 | 20 61 73 63 69 69 20 22 |registry| ascii "|
|00000e00| 69 73 6f 38 38 35 39 2d | 31 22 20 22 2a 2d 2a 22 |iso8859-|1" "*-*"|
|00000e10| 20 66 6f 6e 74 2d 6d 65 | 6e 75 2d 72 65 67 69 73 | font-me|nu-regis|
|00000e20| 74 72 79 2d 65 6e 63 6f | 64 69 6e 67 20 74 20 6e |try-enco|ding t n|
|00000e30| 69 6c 20 77 65 69 67 68 | 74 73 20 73 69 7a 65 73 |il weigh|ts sizes|
|00000e40| 20 66 61 6d 69 6c 69 65 | 73 20 63 61 63 68 65 20 | familie|s cache |
|00000e50| 64 65 76 2d 63 61 63 68 | 65 20 6d 6f 6e 6f 73 70 |dev-cach|e monosp|
|00000e60| 61 63 65 64 2d 70 20 65 | 6e 74 72 79 20 77 65 69 |aced-p e|ntry wei|
|00000e70| 67 68 74 20 73 69 7a 65 | 20 66 61 6d 69 6c 79 20 |ght size| family |
|00000e80| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00000e90| 20 64 65 62 75 67 20 6c | 69 73 74 2d 66 6f 6e 74 | debug l|ist-font|
|00000ea0| 73 20 22 2a 2d 2a 2d 2a | 2d 2a 2d 2a 2d 2a 2d 2a |s "*-*-*|-*-*-*-*|
|00000eb0| 2d 2a 2d 2a 2d 2a 2d 2a | 2d 2a 2d 2a 2d 2a 22 20 |-*-*-*-*|-*-*-*" |
|00000ec0| 73 70 6c 69 74 2d 73 74 | 72 69 6e 67 20 22 5c 6e |split-st|ring "\n|
|00000ed0| 22 20 6e 61 6d 65 20 2d | 2d 64 6f 6c 69 73 74 2d |" name -|-dolist-|
|00000ee0| 74 65 6d 70 2d 2d 38 37 | 37 30 30 20 73 74 72 69 |temp--87|700 stri|
|00000ef0| 6e 67 2d 6d 61 74 63 68 | 20 78 2d 66 6f 6e 74 2d |ng-match| x-font-|
|00000f00| 72 65 67 65 78 70 20 63 | 61 70 69 74 61 6c 69 7a |regexp c|apitaliz|
|00000f10| 65 20 6d 61 74 63 68 2d | 73 74 72 69 6e 67 20 31 |e match-|string 1|
|00000f20| 20 73 74 72 69 6e 67 2d | 74 6f 2d 69 6e 74 20 36 | string-|to-int 6|
|00000f30| 20 78 2d 66 6f 6e 74 2d | 72 65 67 65 78 70 2d 66 | x-font-|regexp-f|
|00000f40| 6f 75 6e 64 72 79 2d 61 | 6e 64 2d 66 61 6d 69 6c |oundry-a|nd-famil|
|00000f50| 79 20 65 72 72 6f 72 20 | 22 69 6e 74 65 72 6e 61 |y error |"interna|
|00000f60| 6c 20 65 72 72 6f 72 22 | 20 78 2d 66 6f 6e 74 2d |l error"| x-font-|
|00000f70| 72 65 67 65 78 70 2d 73 | 70 61 63 69 6e 67 20 22 |regexp-s|pacing "|
|00000f80| 6d 22 20 66 6f 6e 74 73 | 2d 6d 65 6e 75 2d 6a 75 |m" fonts|-menu-ju|
|00000f90| 6e 6b 2d 66 61 6d 69 6c | 69 65 73 20 76 61 73 73 |nk-famil|ies vass|
|00000fa0| 6f 63 20 76 65 63 74 6f | 72 20 32 20 33 20 30 20 |oc vecto|r 2 3 0 |
|00000fb0| 28 36 30 20 38 30 20 31 | 30 30 20 31 32 30 20 31 |(60 80 1|00 120 1|
|00000fc0| 34 30 20 31 36 30 20 31 | 38 30 20 32 34 30 29 20 |40 160 1|80 240) |
|00000fd0| 63 6f 6d 6d 6f 6e 20 64 | 6f 6e 65 20 72 65 73 74 |common d|one rest|
|00000fe0| 20 35 20 64 65 6c 71 20 | 73 6f 72 74 20 73 74 72 | 5 delq |sort str|
|00000ff0| 69 6e 67 2d 6c 65 73 73 | 70 20 3c 20 2d 2d 64 6f |ing-less|p < --do|
|00001000| 6c 69 73 74 2d 74 65 6d | 70 2d 2d 38 37 37 30 31 |list-tem|p--87701|
|00001010| 20 22 47 65 74 74 69 6e | 67 20 6c 69 73 74 20 6f | "Gettin|g list o|
|00001020| 66 20 66 6f 6e 74 73 20 | 66 72 6f 6d 20 73 65 72 |f fonts |from ser|
|00001030| 76 65 72 2e 2e 2e 20 64 | 6f 6e 65 2e 22 20 64 65 |ver... d|one." de|
|00001040| 76 69 63 65 2d 66 6f 6e | 74 73 2d 63 61 63 68 65 |vice-fon|ts-cache|
|00001050| 20 6d 61 70 63 61 72 20 | 23 5b 28 78 29 20 22 c0 | mapcar |#[(x) ".|
|00001060| 09 c2 09 c3 89 46 c4 c5 | c6 c3 c7 c3 26 08 87 22 |.....F..|....&.."|
|00001070| 20 5b 76 65 63 74 6f 72 | 20 78 20 66 6f 6e 74 2d | [vector| x font-|
|00001080| 6d 65 6e 75 2d 73 65 74 | 2d 66 6f 6e 74 20 6e 69 |menu-set|-font ni|
|00001090| 6c 20 3a 73 74 79 6c 65 | 20 72 61 64 69 6f 20 3a |l :style| radio :|
|000010a0| 61 63 74 69 76 65 20 3a | 73 65 6c 65 63 74 65 64 |active :|selected|
|000010b0| 5d 20 39 5d 20 23 5b 28 | 78 29 20 22 c0 09 c2 a6 |] 9] #[(|x) "....|
|000010c0| c3 55 ac 8e c4 09 c2 a5 | 21 c5 c4 09 c2 a6 21 51 |.U......|!.....!Q|
|000010d0| aa 85 c4 09 c2 a5 21 c6 | c7 89 09 46 c8 c9 ca c7 |......!.|...F....|
|000010e0| cb c7 26 08 87 22 20 5b | 76 65 63 74 6f 72 20 78 |..&.." [|vector x|
|000010f0| 20 31 30 20 30 20 69 6e | 74 2d 74 6f 2d 73 74 72 | 10 0 in|t-to-str|
|00001100| 69 6e 67 20 22 2e 22 20 | 66 6f 6e 74 2d 6d 65 6e |ing "." |font-men|
|00001110| 75 2d 73 65 74 2d 66 6f | 6e 74 20 6e 69 6c 20 3a |u-set-fo|nt nil :|
|00001120| 73 74 79 6c 65 20 72 61 | 64 69 6f 20 3a 61 63 74 |style ra|dio :act|
|00001130| 69 76 65 20 3a 73 65 6c | 65 63 74 65 64 5d 20 39 |ive :sel|ected] 9|
|00001140| 5d 20 23 5b 28 78 29 20 | 22 c0 09 c2 c3 09 c3 46 |] #[(x) |"......F|
|00001150| c4 c5 c6 c3 c7 c3 26 08 | 87 22 20 5b 76 65 63 74 |......&.|." [vect|
|00001160| 6f 72 20 78 20 66 6f 6e | 74 2d 6d 65 6e 75 2d 73 |or x fon|t-menu-s|
|00001170| 65 74 2d 66 6f 6e 74 20 | 6e 69 6c 20 3a 73 74 79 |et-font |nil :sty|
|00001180| 6c 65 20 72 61 64 69 6f | 20 3a 61 63 74 69 76 65 |le radio| :active|
|00001190| 20 3a 73 65 6c 65 63 74 | 65 64 5d 20 39 5d 5d 20 | :select|ed] 9]] |
|000011a0| 31 32 20 28 23 24 20 2e | 20 32 33 31 38 29 5d 29 |12 (#$ .| 2318)])|
|000011b0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 66 6f 6e 74 |.(defali|as 'font|
|000011c0| 2d 6d 65 6e 75 2d 66 6f | 6e 74 2d 64 61 74 61 20 |-menu-fo|nt-data |
|000011d0| 23 5b 28 66 61 63 65 20 | 64 63 61 63 68 65 29 20 |#[(face |dcache) |
|000011e0| 22 c0 c1 8d 87 22 20 5b | 2d 2d 63 6c 2d 62 6c 6f |"...." [|--cl-blo|
|000011f0| 63 6b 2d 66 6f 6e 74 2d | 6d 65 6e 75 2d 66 6f 6e |ck-font-|menu-fon|
|00001200| 74 2d 64 61 74 61 2d 2d | 20 28 62 79 74 65 2d 63 |t-data--| (byte-c|
|00001210| 6f 64 65 20 22 c0 19 5c | 6e ab 84 c3 20 aa 82 c4 |ode "..\|n... ...|
|00001220| 20 1d c6 c7 0e 08 0d 5c | 22 21 1e 09 ca c7 0e 08 | ......\|"!......|
|00001230| 0d cb cc 21 ad 81 cd 23 | 21 1e 0e cf 1e 10 cf 1e |...!...#|!.......|
|00001240| 11 cf 1e 12 cf 1e 13 cf | 1e 14 d5 0e 16 0e 09 5c |........|.......\|
|00001250| 22 ab 93 d7 d8 d9 0e 09 | 5c 22 21 16 10 da 0e 10 |".......|\"!.....|
|00001260| 0e 1b dc 48 5c 22 16 13 | 0e 13 ac 9b d5 0e 16 0e |...H\"..|........|
|00001270| 0e 5c 22 ab 93 d7 d8 d9 | 0e 0e 5c 22 21 16 10 da |.\".....|..\"!...|
|00001280| 0e 10 0e 1b dc 48 5c 22 | 16 13 0e 13 ac 88 dd de |.....H\"|........|
|00001290| df e0 cf 5c 22 5c 22 88 | d5 0e 21 0e 09 5c 22 ab |...\"\".|..!..\".|
|000012a0| 92 d7 d8 d9 0e 09 5c 22 | 21 16 12 e2 d8 e3 0e 09 |......\"|!.......|
|000012b0| 5c 22 21 16 11 d5 0e 21 | 0e 0e 5c 22 ab ad 0e 12 |\"!....!|..\"....|
|000012c0| 0e 13 d9 48 b6 ac 89 d7 | d8 d9 0e 0e 5c 22 21 16 |...H....|....\"!.|
|000012d0| 12 0e 11 0e 13 e4 48 b6 | ac 89 e2 d8 e3 0e 0e 5c |......H.|.......\|
|000012e0| 22 21 16 11 d7 d8 e4 0e | 0e 5c 22 21 16 14 e5 0e |"!......|.\"!....|
|000012f0| 13 0e 10 0e 11 0e 12 0e | 14 25 2e 09 87 22 20 5b |........|.%..." [|
|00001300| 74 20 63 61 73 65 2d 66 | 6f 6c 64 2d 73 65 61 72 |t case-f|old-sear|
|00001310| 63 68 20 66 6f 6e 74 2d | 6d 65 6e 75 2d 74 68 69 |ch font-|menu-thi|
|00001320| 73 2d 66 72 61 6d 65 2d | 6f 6e 6c 79 2d 70 20 73 |s-frame-|only-p s|
|00001330| 65 6c 65 63 74 65 64 2d | 66 72 61 6d 65 20 73 65 |elected-|frame se|
|00001340| 6c 65 63 74 65 64 2d 64 | 65 76 69 63 65 20 64 6f |lected-d|evice do|
|00001350| 6d 61 69 6e 20 66 6f 6e | 74 2d 69 6e 73 74 61 6e |main fon|t-instan|
|00001360| 63 65 2d 6e 61 6d 65 20 | 66 61 63 65 2d 66 6f 6e |ce-name |face-fon|
|00001370| 74 2d 69 6e 73 74 61 6e | 63 65 20 66 61 63 65 20 |t-instan|ce face |
|00001380| 6e 61 6d 65 20 66 6f 6e | 74 2d 69 6e 73 74 61 6e |name fon|t-instan|
|00001390| 63 65 2d 74 72 75 65 6e | 61 6d 65 20 66 65 61 74 |ce-truen|ame feat|
|000013a0| 75 72 65 70 20 6d 75 6c | 65 20 61 73 63 69 69 20 |urep mul|e ascii |
|000013b0| 74 72 75 65 6e 61 6d 65 | 20 6e 69 6c 20 66 61 6d |truename| nil fam|
|000013c0| 69 6c 79 20 73 69 7a 65 | 20 77 65 69 67 68 74 20 |ily size| weight |
|000013d0| 65 6e 74 72 79 20 73 6c | 61 6e 74 20 73 74 72 69 |entry sl|ant stri|
|000013e0| 6e 67 2d 6d 61 74 63 68 | 20 78 2d 66 6f 6e 74 2d |ng-match| x-font-|
|000013f0| 72 65 67 65 78 70 2d 66 | 6f 75 6e 64 72 79 2d 61 |regexp-f|oundry-a|
|00001400| 6e 64 2d 66 61 6d 69 6c | 79 20 63 61 70 69 74 61 |nd-famil|y capita|
|00001410| 6c 69 7a 65 20 6d 61 74 | 63 68 2d 73 74 72 69 6e |lize mat|ch-strin|
|00001420| 67 20 31 20 76 61 73 73 | 6f 63 20 64 63 61 63 68 |g 1 vass|oc dcach|
|00001430| 65 20 30 20 74 68 72 6f | 77 20 2d 2d 63 6c 2d 62 |e 0 thro|w --cl-b|
|00001440| 6c 6f 63 6b 2d 66 6f 6e | 74 2d 6d 65 6e 75 2d 66 |lock-fon|t-menu-f|
|00001450| 6f 6e 74 2d 64 61 74 61 | 2d 2d 20 6d 61 6b 65 2d |ont-data|-- make-|
|00001460| 76 65 63 74 6f 72 20 35 | 20 78 2d 66 6f 6e 74 2d |vector 5| x-font-|
|00001470| 72 65 67 65 78 70 20 73 | 74 72 69 6e 67 2d 74 6f |regexp s|tring-to|
|00001480| 2d 69 6e 74 20 36 20 32 | 20 76 65 63 74 6f 72 5d |-int 6 2| vector]|
|00001490| 20 36 29 5d 20 32 5d 29 | 0a 28 64 65 66 61 6c 69 | 6)] 2])|.(defali|
|000014a0| 61 73 20 27 66 6f 6e 74 | 2d 6d 65 6e 75 2d 66 61 |as 'font|-menu-fa|
|000014b0| 6d 69 6c 79 2d 63 6f 6e | 73 74 72 75 63 74 6f 72 |mily-con|structor|
|000014c0| 20 23 5b 28 69 67 6e 6f | 72 65 64 29 20 22 c0 c1 | #[(igno|red) "..|
|000014d0| 8d 87 22 20 5b 6d 65 6e | 75 20 28 62 79 74 65 2d |.." [men|u (byte-|
|000014e0| 63 6f 64 65 20 22 c0 c1 | 20 21 c2 61 ac 85 c3 c4 |code "..| !.a....|
|000014f0| c5 5c 22 88 c1 20 0e 06 | b7 41 ae 84 c7 c1 20 21 |.\".. ..|.A.... !|
|00001500| 1e 08 c9 ca 0e 08 5c 22 | 89 1e 0b cc 48 1e 0d 0e |......\"|....H...|
|00001510| 0b ce 48 1e 0f 0e 0b d0 | 48 1e 11 0e 0b d2 48 1e |..H.....|H.....H.|
|00001520| 13 d4 1e 15 0e 0f ac 85 | c3 c4 d6 5c 22 88 d7 d8 |........|...\"...|
|00001530| 0e 08 ce 48 5c 22 2e 07 | 87 22 20 5b 64 65 76 69 |...H\"..|." [devi|
|00001540| 63 65 2d 74 79 70 65 20 | 73 65 6c 65 63 74 65 64 |ce-type |selected|
|00001550| 2d 64 65 76 69 63 65 20 | 78 20 74 68 72 6f 77 20 |-device |x throw |
|00001560| 6d 65 6e 75 20 28 5b 22 | 43 61 6e 6e 6f 74 20 70 |menu (["|Cannot p|
|00001570| 61 72 73 65 20 63 75 72 | 72 65 6e 74 20 66 6f 6e |arse cur|rent fon|
|00001580| 74 22 20 64 69 6e 67 20 | 6e 69 6c 5d 29 20 64 65 |t" ding |nil]) de|
|00001590| 76 69 63 65 2d 66 6f 6e | 74 73 2d 63 61 63 68 65 |vice-fon|ts-cache|
|000015a0| 20 72 65 73 65 74 2d 64 | 65 76 69 63 65 2d 66 6f | reset-d|evice-fo|
|000015b0| 6e 74 2d 6d 65 6e 75 73 | 20 64 63 61 63 68 65 20 |nt-menus| dcache |
|000015c0| 66 6f 6e 74 2d 6d 65 6e | 75 2d 66 6f 6e 74 2d 64 |font-men|u-font-d|
|000015d0| 61 74 61 20 64 65 66 61 | 75 6c 74 20 66 6f 6e 74 |ata defa|ult font|
|000015e0| 2d 64 61 74 61 20 30 20 | 65 6e 74 72 79 20 31 20 |-data 0 |entry 1 |
|000015f0| 66 61 6d 69 6c 79 20 32 | 20 73 69 7a 65 20 33 20 |family 2| size 3 |
|00001600| 77 65 69 67 68 74 20 6e | 69 6c 20 66 20 28 5b 22 |weight n|il f (["|
|00001610| 43 61 6e 6e 6f 74 20 70 | 61 72 73 65 20 63 75 72 |Cannot p|arse cur|
|00001620| 72 65 6e 74 20 66 6f 6e | 74 22 20 64 69 6e 67 20 |rent fon|t" ding |
|00001630| 6e 69 6c 5d 29 20 6d 61 | 70 63 61 72 20 23 5b 28 |nil]) ma|pcar #[(|
|00001640| 69 74 65 6d 29 20 22 08 | c1 48 12 c3 5c 6e 0c c1 |item) ".|.H..\n..|
|00001650| 48 5c 22 15 0e 06 0d c7 | 48 b6 ab 99 0e 08 0d c9 |H\".....|H.......|
|00001660| 48 b6 ac 8b 0e 5c 6e ac | 8d c1 0d c9 48 b6 ab 86 |H....\n.|....H...|
|00001670| cb 08 21 88 aa 84 cc 08 | 21 88 0e 0d 5c 6e 98 ab |..!.....|!...\n..|
|00001680| 86 ce 08 21 88 aa 84 cf | 08 21 88 08 87 22 20 5b |...!....|.!..." [|
|00001690| 69 74 65 6d 20 30 20 66 | 20 76 61 73 73 6f 63 20 |item 0 f| vassoc |
|000016a0| 64 63 61 63 68 65 20 65 | 6e 74 72 79 20 77 65 69 |dcache e|ntry wei|
|000016b0| 67 68 74 20 31 20 73 69 | 7a 65 20 32 20 66 6f 6e |ght 1 si|ze 2 fon|
|000016c0| 74 2d 6d 65 6e 75 2d 69 | 67 6e 6f 72 65 2d 73 63 |t-menu-i|gnore-sc|
|000016d0| 61 6c 65 64 2d 66 6f 6e | 74 73 20 65 6e 61 62 6c |aled-fon|ts enabl|
|000016e0| 65 2d 6d 65 6e 75 2d 69 | 74 65 6d 20 64 69 73 61 |e-menu-i|tem disa|
|000016f0| 62 6c 65 2d 6d 65 6e 75 | 2d 69 74 65 6d 20 66 61 |ble-menu|-item fa|
|00001700| 6d 69 6c 79 20 73 65 6c | 65 63 74 2d 74 6f 67 67 |mily sel|ect-togg|
|00001710| 6c 65 2d 6d 65 6e 75 2d | 69 74 65 6d 20 64 65 73 |le-menu-|item des|
|00001720| 65 6c 65 63 74 2d 74 6f | 67 67 6c 65 2d 6d 65 6e |elect-to|ggle-men|
|00001730| 75 2d 69 74 65 6d 5d 20 | 34 5d 5d 20 35 29 5d 20 |u-item] |4]] 5)] |
|00001740| 32 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 66 |2]).(def|alias 'f|
|00001750| 6f 6e 74 2d 6d 65 6e 75 | 2d 73 69 7a 65 2d 63 6f |ont-menu|-size-co|
|00001760| 6e 73 74 72 75 63 74 6f | 72 20 23 5b 28 69 67 6e |nstructo|r #[(ign|
|00001770| 6f 72 65 64 29 20 22 c0 | c1 8d 87 22 20 5b 6d 65 |ored) ".|..." [me|
|00001780| 6e 75 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |nu (byte|-code ".|
|00001790| c1 20 21 c2 61 ac 85 c3 | c4 c5 5c 22 88 c1 20 0e |. !.a...|..\".. .|
|000017a0| 06 b7 41 ae 84 c7 c1 20 | 21 1e 08 c9 ca 0e 08 5c |..A.... |!......\|
|000017b0| 22 89 1e 0b cc 48 1e 0d | 0e 0b ce 48 1e 0f 0e 0b |"....H..|...H....|
|000017c0| d0 48 1e 11 d2 1e 13 0e | 0f ac 85 c3 c4 d4 5c 22 |.H......|......\"|
|000017d0| 88 d5 d6 0e 08 d0 48 5c | 22 2e 06 87 22 20 5b 64 |......H\|"..." [d|
|000017e0| 65 76 69 63 65 2d 74 79 | 70 65 20 73 65 6c 65 63 |evice-ty|pe selec|
|000017f0| 74 65 64 2d 64 65 76 69 | 63 65 20 78 20 74 68 72 |ted-devi|ce x thr|
|00001800| 6f 77 20 6d 65 6e 75 20 | 28 5b 22 43 61 6e 6e 6f |ow menu |(["Canno|
|00001810| 74 20 70 61 72 73 65 20 | 63 75 72 72 65 6e 74 20 |t parse |current |
|00001820| 66 6f 6e 74 22 20 64 69 | 6e 67 20 6e 69 6c 5d 29 |font" di|ng nil])|
|00001830| 20 64 65 76 69 63 65 2d | 66 6f 6e 74 73 2d 63 61 | device-|fonts-ca|
|00001840| 63 68 65 20 72 65 73 65 | 74 2d 64 65 76 69 63 65 |che rese|t-device|
|00001850| 2d 66 6f 6e 74 2d 6d 65 | 6e 75 73 20 64 63 61 63 |-font-me|nus dcac|
|00001860| 68 65 20 66 6f 6e 74 2d | 6d 65 6e 75 2d 66 6f 6e |he font-|menu-fon|
|00001870| 74 2d 64 61 74 61 20 64 | 65 66 61 75 6c 74 20 66 |t-data d|efault f|
|00001880| 6f 6e 74 2d 64 61 74 61 | 20 30 20 65 6e 74 72 79 |ont-data| 0 entry|
|00001890| 20 31 20 66 61 6d 69 6c | 79 20 32 20 73 69 7a 65 | 1 famil|y 2 size|
|000018a0| 20 6e 69 6c 20 73 20 28 | 5b 22 43 61 6e 6e 6f 74 | nil s (|["Cannot|
|000018b0| 20 70 61 72 73 65 20 63 | 75 72 72 65 6e 74 20 66 | parse c|urrent f|
|000018c0| 6f 6e 74 22 20 64 69 6e | 67 20 6e 69 6c 5d 29 20 |ont" din|g nil]) |
|000018d0| 6d 61 70 63 61 72 20 23 | 5b 28 69 74 65 6d 29 20 |mapcar #|[(item) |
|000018e0| 22 c0 09 c2 48 38 89 13 | 0c c5 48 b6 ac 8b 0e 06 |"...H8..|..H.....|
|000018f0| ac 8d c7 0c c5 48 b6 ab | 86 c8 09 21 88 aa 84 c9 |.....H..|...!....|
|00001900| 09 21 88 0e 5c 6e 0b 61 | ab 86 cb 09 21 88 aa 84 |.!..\n.a|....!...|
|00001910| cc 09 21 88 09 87 22 20 | 5b 33 20 69 74 65 6d 20 |..!..." |[3 item |
|00001920| 31 20 73 20 65 6e 74 72 | 79 20 32 20 66 6f 6e 74 |1 s entr|y 2 font|
|00001930| 2d 6d 65 6e 75 2d 69 67 | 6e 6f 72 65 2d 73 63 61 |-menu-ig|nore-sca|
|00001940| 6c 65 64 2d 66 6f 6e 74 | 73 20 30 20 65 6e 61 62 |led-font|s 0 enab|
|00001950| 6c 65 2d 6d 65 6e 75 2d | 69 74 65 6d 20 64 69 73 |le-menu-|item dis|
|00001960| 61 62 6c 65 2d 6d 65 6e | 75 2d 69 74 65 6d 20 73 |able-men|u-item s|
|00001970| 69 7a 65 20 73 65 6c 65 | 63 74 2d 74 6f 67 67 6c |ize sele|ct-toggl|
|00001980| 65 2d 6d 65 6e 75 2d 69 | 74 65 6d 20 64 65 73 65 |e-menu-i|tem dese|
|00001990| 6c 65 63 74 2d 74 6f 67 | 67 6c 65 2d 6d 65 6e 75 |lect-tog|gle-menu|
|000019a0| 2d 69 74 65 6d 5d 20 34 | 5d 5d 20 35 29 5d 20 32 |-item] 4|]] 5)] 2|
|000019b0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 66 6f |]).(defa|lias 'fo|
|000019c0| 6e 74 2d 6d 65 6e 75 2d | 77 65 69 67 68 74 2d 63 |nt-menu-|weight-c|
|000019d0| 6f 6e 73 74 72 75 63 74 | 6f 72 20 23 5b 28 69 67 |onstruct|or #[(ig|
|000019e0| 6e 6f 72 65 64 29 20 22 | c0 c1 8d 87 22 20 5b 6d |nored) "|...." [m|
|000019f0| 65 6e 75 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |enu (byt|e-code "|
|00001a00| c0 c1 20 21 c2 61 ac 85 | c3 c4 c5 5c 22 88 c1 20 |.. !.a..|...\".. |
|00001a10| 0e 06 b7 41 ae 84 c7 c1 | 20 21 1e 08 c9 ca 0e 08 |...A....| !......|
|00001a20| 5c 22 89 1e 0b cc 48 1e | 0d 0e 0b ce 48 1e 0f 0e |\"....H.|....H...|
|00001a30| 0b d0 48 1e 11 d2 1e 13 | 0e 0f ac 85 c3 c4 d4 5c |..H.....|.......\|
|00001a40| 22 88 d5 d6 0e 08 d0 48 | 5c 22 2e 06 87 22 20 5b |"......H|\"..." [|
|00001a50| 64 65 76 69 63 65 2d 74 | 79 70 65 20 73 65 6c 65 |device-t|ype sele|
|00001a60| 63 74 65 64 2d 64 65 76 | 69 63 65 20 78 20 74 68 |cted-dev|ice x th|
|00001a70| 72 6f 77 20 6d 65 6e 75 | 20 28 5b 22 43 61 6e 6e |row menu| (["Cann|
|00001a80| 6f 74 20 70 61 72 73 65 | 20 63 75 72 72 65 6e 74 |ot parse| current|
|00001a90| 20 66 6f 6e 74 22 20 64 | 69 6e 67 20 6e 69 6c 5d | font" d|ing nil]|
|00001aa0| 29 20 64 65 76 69 63 65 | 2d 66 6f 6e 74 73 2d 63 |) device|-fonts-c|
|00001ab0| 61 63 68 65 20 72 65 73 | 65 74 2d 64 65 76 69 63 |ache res|et-devic|
|00001ac0| 65 2d 66 6f 6e 74 2d 6d | 65 6e 75 73 20 64 63 61 |e-font-m|enus dca|
|00001ad0| 63 68 65 20 66 6f 6e 74 | 2d 6d 65 6e 75 2d 66 6f |che font|-menu-fo|
|00001ae0| 6e 74 2d 64 61 74 61 20 | 64 65 66 61 75 6c 74 20 |nt-data |default |
|00001af0| 66 6f 6e 74 2d 64 61 74 | 61 20 30 20 65 6e 74 72 |font-dat|a 0 entr|
|00001b00| 79 20 31 20 66 61 6d 69 | 6c 79 20 33 20 77 65 69 |y 1 fami|ly 3 wei|
|00001b10| 67 68 74 20 6e 69 6c 20 | 77 20 28 5b 22 43 61 6e |ght nil |w (["Can|
|00001b20| 6e 6f 74 20 70 61 72 73 | 65 20 63 75 72 72 65 6e |not pars|e curren|
|00001b30| 74 20 66 6f 6e 74 22 20 | 64 69 6e 67 20 6e 69 6c |t font" |ding nil|
|00001b40| 5d 29 20 6d 61 70 63 61 | 72 20 23 5b 28 69 74 65 |]) mapca|r #[(ite|
|00001b50| 6d 29 20 22 08 c1 48 89 | 12 0b c4 48 b6 ab 86 c5 |m) "..H.|...H....|
|00001b60| 08 21 88 aa 84 c6 08 21 | 88 0e 07 5c 6e 98 ab 86 |.!.....!|...\n...|
|00001b70| c8 08 21 88 aa 84 c9 08 | 21 88 08 87 22 20 5b 69 |..!.....|!..." [i|
|00001b80| 74 65 6d 20 30 20 77 20 | 65 6e 74 72 79 20 31 20 |tem 0 w |entry 1 |
|00001b90| 65 6e 61 62 6c 65 2d 6d | 65 6e 75 2d 69 74 65 6d |enable-m|enu-item|
|00001ba0| 20 64 69 73 61 62 6c 65 | 2d 6d 65 6e 75 2d 69 74 | disable|-menu-it|
|00001bb0| 65 6d 20 77 65 69 67 68 | 74 20 73 65 6c 65 63 74 |em weigh|t select|
|00001bc0| 2d 74 6f 67 67 6c 65 2d | 6d 65 6e 75 2d 69 74 65 |-toggle-|menu-ite|
|00001bd0| 6d 20 64 65 73 65 6c 65 | 63 74 2d 74 6f 67 67 6c |m desele|ct-toggl|
|00001be0| 65 2d 6d 65 6e 75 2d 69 | 74 65 6d 5d 20 34 5d 5d |e-menu-i|tem] 4]]|
|00001bf0| 20 35 29 5d 20 32 5d 29 | 0a 28 64 65 66 61 6c 69 | 5)] 2])|.(defali|
|00001c00| 61 73 20 27 66 6f 6e 74 | 2d 6d 65 6e 75 2d 73 65 |as 'font|-menu-se|
|00001c10| 74 2d 66 6f 6e 74 20 23 | 5b 28 66 61 6d 69 6c 79 |t-font #|[(family|
|00001c20| 20 77 65 69 67 68 74 20 | 73 69 7a 65 29 20 22 c0 | weight |size) ".|
|00001c30| 20 09 b7 41 ae 84 c2 c0 | 20 21 1b c4 c5 0b 5c 22 | ..A....| !....\"|
|00001c40| 89 1e 06 c7 48 1e 08 0e | 06 c9 48 1e 5c 6e 0e 06 |....H...|..H.\n..|
|00001c50| cb 48 1e 0c 0e 06 cd 48 | 1e 0e cf 1e 10 0e 08 ac |.H.....H|........|
|00001c60| 85 d1 d2 d3 5c 22 88 d4 | 0e 15 ae 82 0e 08 0e 16 |....\"..|........|
|00001c70| ae 82 0e 0c 0e 17 ae 82 | 0e 5c 6e 0e 0e 0e 18 25 |........|.\n....%|
|00001c80| 16 10 d9 c5 da 20 5c 22 | cf 1e 1b 89 1e 1c ab 9e |..... \"|........|
|00001c90| 0e 1c 40 16 1b dd 0e 1b | 21 ab 8b de df 0e 1b 5c |..@.....|!......\|
|00001ca0| 22 88 e0 e1 e2 8f 88 0e | 1c 41 89 16 1c ac 62 2a |".......|.A....b*|
|00001cb0| e3 c5 0e 10 0e 24 ad 82 | e5 20 23 88 de e6 e7 c5 |.....$..|. #.....|
|00001cc0| 21 5c 22 2e 07 87 22 20 | 5b 73 65 6c 65 63 74 65 |!\"..." |[selecte|
|00001cd0| 64 2d 64 65 76 69 63 65 | 20 64 65 76 69 63 65 2d |d-device| device-|
|00001ce0| 66 6f 6e 74 73 2d 63 61 | 63 68 65 20 72 65 73 65 |fonts-ca|che rese|
|00001cf0| 74 2d 64 65 76 69 63 65 | 2d 66 6f 6e 74 2d 6d 65 |t-device|-font-me|
|00001d00| 6e 75 73 20 64 63 61 63 | 68 65 20 66 6f 6e 74 2d |nus dcac|he font-|
|00001d10| 6d 65 6e 75 2d 66 6f 6e | 74 2d 64 61 74 61 20 64 |menu-fon|t-data d|
|00001d20| 65 66 61 75 6c 74 20 66 | 6f 6e 74 2d 64 61 74 61 |efault f|ont-data|
|00001d30| 20 31 20 66 72 6f 6d 2d | 66 61 6d 69 6c 79 20 32 | 1 from-|family 2|
|00001d40| 20 66 72 6f 6d 2d 73 69 | 7a 65 20 33 20 66 72 6f | from-si|ze 3 fro|
|00001d50| 6d 2d 77 65 69 67 68 74 | 20 34 20 66 72 6f 6d 2d |m-weight| 4 from-|
|00001d60| 73 6c 61 6e 74 20 6e 69 | 6c 20 6e 65 77 2d 64 65 |slant ni|l new-de|
|00001d70| 66 61 75 6c 74 2d 66 61 | 63 65 2d 66 6f 6e 74 20 |fault-fa|ce-font |
|00001d80| 73 69 67 6e 61 6c 20 65 | 72 72 6f 72 20 28 22 63 |signal e|rror ("c|
|00001d90| 6f 75 6c 64 6e 27 74 20 | 70 61 72 73 65 20 66 6f |ouldn't |parse fo|
|00001da0| 6e 74 20 6e 61 6d 65 20 | 66 6f 72 20 64 65 66 61 |nt name |for defa|
|00001db0| 75 6c 74 20 66 61 63 65 | 22 29 20 66 6f 6e 74 2d |ult face|") font-|
|00001dc0| 6d 65 6e 75 2d 6c 6f 61 | 64 2d 66 6f 6e 74 20 66 |menu-loa|d-font f|
|00001dd0| 61 6d 69 6c 79 20 77 65 | 69 67 68 74 20 73 69 7a |amily we|ight siz|
|00001de0| 65 20 66 6f 6e 74 2d 6d | 65 6e 75 2d 70 72 65 66 |e font-m|enu-pref|
|00001df0| 65 72 72 65 64 2d 72 65 | 73 6f 6c 75 74 69 6f 6e |erred-re|solution|
|00001e00| 20 64 65 6c 71 20 66 61 | 63 65 2d 6c 69 73 74 20 | delq fa|ce-list |
|00001e10| 66 61 63 65 20 2d 2d 64 | 6f 6c 69 73 74 2d 74 65 |face --d|olist-te|
|00001e20| 6d 70 2d 2d 38 37 37 30 | 36 20 66 61 63 65 2d 66 |mp--8770|6 face-f|
|00001e30| 6f 6e 74 2d 69 6e 73 74 | 61 6e 63 65 20 6d 65 73 |ont-inst|ance mes|
|00001e40| 73 61 67 65 20 22 43 68 | 61 6e 67 69 6e 67 20 66 |sage "Ch|anging f|
|00001e50| 6f 6e 74 20 6f 66 20 60 | 25 73 27 2e 2e 2e 22 20 |ont of `|%s'..." |
|00001e60| 63 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 09 |c (byte-|code "..|
|00001e70| 5c 6e 0b 0c 0d 0e 06 0e | 07 26 07 87 22 20 5b 66 |\n......|.&.." [f|
|00001e80| 6f 6e 74 2d 6d 65 6e 75 | 2d 63 68 61 6e 67 65 2d |ont-menu|-change-|
|00001e90| 66 61 63 65 20 66 61 63 | 65 20 66 72 6f 6d 2d 66 |face fac|e from-f|
|00001ea0| 61 6d 69 6c 79 20 66 72 | 6f 6d 2d 77 65 69 67 68 |amily fr|om-weigh|
|00001eb0| 74 20 66 72 6f 6d 2d 73 | 69 7a 65 20 66 61 6d 69 |t from-s|ize fami|
|00001ec0| 6c 79 20 77 65 69 67 68 | 74 20 73 69 7a 65 5d 20 |ly weigh|t size] |
|00001ed0| 38 29 20 28 28 65 72 72 | 6f 72 20 28 62 79 74 65 |8) ((err|or (byte|
|00001ee0| 2d 63 6f 64 65 20 22 c0 | 09 c2 5c 22 88 c3 c4 21 |-code ".|..\"...!|
|00001ef0| 87 22 20 5b 64 69 73 70 | 6c 61 79 2d 65 72 72 6f |." [disp|lay-erro|
|00001f00| 72 20 63 20 6e 69 6c 20 | 73 69 74 2d 66 6f 72 20 |r c nil |sit-for |
|00001f10| 31 5d 20 33 29 29 29 20 | 73 65 74 2d 66 61 63 65 |1] 3))) |set-face|
|00001f20| 2d 66 6f 6e 74 20 66 6f | 6e 74 2d 6d 65 6e 75 2d |-font fo|nt-menu-|
|00001f30| 74 68 69 73 2d 66 72 61 | 6d 65 2d 6f 6e 6c 79 2d |this-fra|me-only-|
|00001f40| 70 20 73 65 6c 65 63 74 | 65 64 2d 66 72 61 6d 65 |p select|ed-frame|
|00001f50| 20 22 46 6f 6e 74 20 25 | 73 22 20 66 61 63 65 2d | "Font %|s" face-|
|00001f60| 66 6f 6e 74 2d 6e 61 6d | 65 5d 20 37 5d 29 0a 28 |font-nam|e] 7]).(|
|00001f70| 64 65 66 61 6c 69 61 73 | 20 27 66 6f 6e 74 2d 6d |defalias| 'font-m|
|00001f80| 65 6e 75 2d 63 68 61 6e | 67 65 2d 66 61 63 65 20 |enu-chan|ge-face |
|00001f90| 23 5b 28 66 61 63 65 20 | 66 72 6f 6d 2d 66 61 6d |#[(face |from-fam|
|00001fa0| 69 6c 79 20 66 72 6f 6d | 2d 77 65 69 67 68 74 20 |ily from|-weight |
|00001fb0| 66 72 6f 6d 2d 73 69 7a | 65 20 74 6f 2d 66 61 6d |from-siz|e to-fam|
|00001fc0| 69 6c 79 20 74 6f 2d 77 | 65 69 67 68 74 20 74 6f |ily to-w|eight to|
|00001fd0| 2d 73 69 7a 65 29 20 22 | 08 39 ac 87 c1 c2 c3 08 |-size) "|.9......|
|00001fe0| 44 5c 22 88 c4 20 0d b7 | 41 ae 84 c6 c4 20 21 1e |D\".. ..|A.... !.|
|00001ff0| 07 c8 08 0e 07 5c 22 89 | 1e 09 ca 48 1e 0b 0e 09 |.....\".|...H....|
|00002000| cc 48 1e 0d 0e 09 ce 48 | 1e 0f 0e 09 d0 48 1e 11 |.H.....H|.....H..|
|00002010| 0e 0b ac 87 c1 d2 d3 08 | 44 5c 22 88 d4 08 d5 5c |........|D\"....\|
|00002020| 22 ad c2 0e 16 ab 87 0e | 0b 0e 17 98 aa 94 0e 18 |".......|........|
|00002030| ab 87 0e 0f 0e 19 98 aa | 89 0e 1a ad a8 0e 0d 0e |........|........|
|00002040| 1b 55 ad a1 dc 08 dd 0e | 16 ae 82 0e 0b 0e 18 ae |.U......|........|
|00002050| 82 0e 0f 0e 1a ae 82 0e | 0d 0e 11 0e 1e 25 0e 1f |........|.....%..|
|00002060| ad 82 e0 20 23 2e 06 87 | 22 20 5b 66 61 63 65 20 |... #...|" [face |
|00002070| 73 69 67 6e 61 6c 20 77 | 72 6f 6e 67 2d 74 79 70 |signal w|rong-typ|
|00002080| 65 2d 61 72 67 75 6d 65 | 6e 74 20 73 79 6d 62 6f |e-argume|nt symbo|
|00002090| 6c 70 20 73 65 6c 65 63 | 74 65 64 2d 64 65 76 69 |lp selec|ted-devi|
|000020a0| 63 65 20 64 65 76 69 63 | 65 2d 66 6f 6e 74 73 2d |ce devic|e-fonts-|
|000020b0| 63 61 63 68 65 20 72 65 | 73 65 74 2d 64 65 76 69 |cache re|set-devi|
|000020c0| 63 65 2d 66 6f 6e 74 2d | 6d 65 6e 75 73 20 64 63 |ce-font-|menus dc|
|000020d0| 61 63 68 65 20 66 6f 6e | 74 2d 6d 65 6e 75 2d 66 |ache fon|t-menu-f|
|000020e0| 6f 6e 74 2d 64 61 74 61 | 20 66 6f 6e 74 2d 64 61 |ont-data| font-da|
|000020f0| 74 61 20 31 20 66 61 63 | 65 2d 66 61 6d 69 6c 79 |ta 1 fac|e-family|
|00002100| 20 32 20 66 61 63 65 2d | 73 69 7a 65 20 33 20 66 | 2 face-|size 3 f|
|00002110| 61 63 65 2d 77 65 69 67 | 68 74 20 34 20 66 61 63 |ace-weig|ht 4 fac|
|00002120| 65 2d 73 6c 61 6e 74 20 | 65 72 72 6f 72 20 22 63 |e-slant |error "c|
|00002130| 6f 75 6c 64 6e 27 74 20 | 70 61 72 73 65 20 66 6f |ouldn't |parse fo|
|00002140| 6e 74 20 6e 61 6d 65 20 | 66 6f 72 20 66 61 63 65 |nt name |for face|
|00002150| 22 20 66 61 63 65 2d 66 | 6f 6e 74 20 67 6c 6f 62 |" face-f|ont glob|
|00002160| 61 6c 20 74 6f 2d 66 61 | 6d 69 6c 79 20 66 72 6f |al to-fa|mily fro|
|00002170| 6d 2d 66 61 6d 69 6c 79 | 20 74 6f 2d 77 65 69 67 |m-family| to-weig|
|00002180| 68 74 20 66 72 6f 6d 2d | 77 65 69 67 68 74 20 74 |ht from-|weight t|
|00002190| 6f 2d 73 69 7a 65 20 66 | 72 6f 6d 2d 73 69 7a 65 |o-size f|rom-size|
|000021a0| 20 73 65 74 2d 66 61 63 | 65 2d 66 6f 6e 74 20 66 | set-fac|e-font f|
|000021b0| 6f 6e 74 2d 6d 65 6e 75 | 2d 6c 6f 61 64 2d 66 6f |ont-menu|-load-fo|
|000021c0| 6e 74 20 66 6f 6e 74 2d | 6d 65 6e 75 2d 70 72 65 |nt font-|menu-pre|
|000021d0| 66 65 72 72 65 64 2d 72 | 65 73 6f 6c 75 74 69 6f |ferred-r|esolutio|
|000021e0| 6e 20 66 6f 6e 74 2d 6d | 65 6e 75 2d 74 68 69 73 |n font-m|enu-this|
|000021f0| 2d 66 72 61 6d 65 2d 6f | 6e 6c 79 2d 70 20 73 65 |-frame-o|nly-p se|
|00002200| 6c 65 63 74 65 64 2d 66 | 72 61 6d 65 5d 20 39 5d |lected-f|rame] 9]|
|00002210| 29 0a 23 40 31 30 30 20 | 54 72 79 20 74 6f 20 6c |).#@100 |Try to l|
|00002220| 6f 61 64 20 61 20 66 6f | 6e 74 20 77 69 74 68 20 |oad a fo|nt with |
|00002230| 74 68 65 20 72 65 71 75 | 65 73 74 65 64 20 70 72 |the requ|ested pr|
|00002240| 6f 70 65 72 74 69 65 73 | 2e 0a 54 68 65 20 77 65 |operties|..The we|
|00002250| 69 67 68 74 2c 20 73 6c | 61 6e 74 20 61 6e 64 20 |ight, sl|ant and |
|00002260| 72 65 73 6f 6c 75 74 69 | 6f 6e 20 61 72 65 20 6f |resoluti|on are o|
|00002270| 6e 6c 79 20 68 69 6e 74 | 73 2e 1f 0a 28 64 65 66 |nly hint|s...(def|
|00002280| 61 6c 69 61 73 20 27 66 | 6f 6e 74 2d 6d 65 6e 75 |alias 'f|ont-menu|
|00002290| 2d 6c 6f 61 64 2d 66 6f | 6e 74 20 23 5b 28 66 61 |-load-fo|nt #[(fa|
|000022a0| 6d 69 6c 79 20 77 65 69 | 67 68 74 20 73 69 7a 65 |mily wei|ght size|
|000022b0| 20 73 6c 61 6e 74 20 72 | 65 73 6f 6c 75 74 69 6f | slant r|esolutio|
|000022c0| 6e 29 20 22 08 a8 ab 84 | c1 08 21 10 c2 1b c4 c5 |n) "....|..!.....|
|000022d0| 8d 29 87 22 20 5b 73 69 | 7a 65 20 69 6e 74 2d 74 |.)." [si|ze int-t|
|000022e0| 6f 2d 73 74 72 69 6e 67 | 20 6e 69 6c 20 66 6f 6e |o-string| nil fon|
|000022f0| 74 20 67 6f 74 2d 66 6f | 6e 74 20 28 62 79 74 65 |t got-fo|nt (byte|
|00002300| 2d 63 6f 64 65 20 22 08 | c1 44 c2 18 89 1b ab fe |-code ".|.D......|
|00002310| 0b 40 10 0c c5 98 ab 83 | c6 aa 93 0c c7 98 ab 83 |.@......|........|
|00002320| c8 aa 8b 0c c1 98 ab 83 | c9 aa 83 0c c1 44 c2 1c |........|.....D..|
|00002330| 89 1e 5c 6e ab d2 0e 5c | 6e 40 14 0e 0b cc 98 ab |..\n...\|n@......|
|00002340| 85 0e 0b 43 aa 84 0e 0b | cc 44 c2 1e 0b 89 1e 0d |...C....|.D......|
|00002350| ab ae 0e 0d 40 16 0b ce | cf 0e 10 d1 08 d1 0c d2 |....@...|........|
|00002360| 0e 13 d1 0e 0b d4 0e 15 | b0 0c c2 d6 23 89 16 17 |........|....#...|
|00002370| ab 86 d8 d9 0e 17 5c 22 | 88 0e 0d 41 89 16 0d ac |......\"|...A....|
|00002380| 52 2a 0e 5c 6e 41 89 16 | 5c 6e ac 2e 2a 0b 41 89 |R*.\nA..|\n..*.A.|
|00002390| 13 ac 02 2a c2 87 22 20 | 5b 77 65 69 67 68 74 20 |...*.." |[weight |
|000023a0| 22 2a 22 20 6e 69 6c 20 | 2d 2d 64 6f 6c 69 73 74 |"*" nil |--dolist|
|000023b0| 2d 74 65 6d 70 2d 2d 38 | 37 37 30 37 20 73 6c 61 |-temp--8|7707 sla|
|000023c0| 6e 74 20 22 4f 22 20 28 | 22 4f 22 20 22 49 22 20 |nt "O" (|"O" "I" |
|000023d0| 22 2a 22 29 20 22 49 22 | 20 28 22 49 22 20 22 4f |"*") "I"| ("I" "O|
|000023e0| 22 20 22 2a 22 29 20 28 | 22 2a 22 29 20 2d 2d 64 |" "*") (|"*") --d|
|000023f0| 6f 6c 69 73 74 2d 74 65 | 6d 70 2d 2d 38 37 37 30 |olist-te|mp--8770|
|00002400| 38 20 72 65 73 6f 6c 75 | 74 69 6f 6e 20 22 2a 2d |8 resolu|tion "*-|
|00002410| 2a 22 20 2d 2d 64 6f 6c | 69 73 74 2d 74 65 6d 70 |*" --dol|ist-temp|
|00002420| 2d 2d 38 37 37 30 39 20 | 6d 61 6b 65 2d 66 6f 6e |--87709 |make-fon|
|00002430| 74 2d 69 6e 73 74 61 6e | 63 65 20 22 2d 2a 2d 22 |t-instan|ce "-*-"|
|00002440| 20 66 61 6d 69 6c 79 20 | 22 2d 22 20 22 2d 2a 2d | family |"-" "-*-|
|00002450| 2a 2d 2a 2d 22 20 73 69 | 7a 65 20 22 2d 2a 2d 2a |*-*-" si|ze "-*-*|
|00002460| 2d 22 20 66 6f 6e 74 2d | 6d 65 6e 75 2d 72 65 67 |-" font-|menu-reg|
|00002470| 69 73 74 72 79 2d 65 6e | 63 6f 64 69 6e 67 20 74 |istry-en|coding t|
|00002480| 20 66 6f 6e 74 20 74 68 | 72 6f 77 20 67 6f 74 2d | font th|row got-|
|00002490| 66 6f 6e 74 5d 20 31 36 | 29 5d 20 32 20 28 23 24 |font] 16|)] 2 (#$|
|000024a0| 20 2e 20 38 37 32 38 29 | 5d 29 0a 28 64 65 66 61 | . 8728)|]).(defa|
|000024b0| 6c 69 61 73 20 27 66 6c | 75 73 68 2d 64 65 76 69 |lias 'fl|ush-devi|
|000024c0| 63 65 2d 66 6f 6e 74 73 | 2d 63 61 63 68 65 20 23 |ce-fonts|-cache #|
|000024d0| 5b 28 64 65 76 69 63 65 | 29 20 22 08 09 b7 89 1a |[(device|) ".....|
|000024e0| ad 86 c3 5c 6e 09 5c 22 | 89 11 29 87 22 20 5b 64 |...\n.\"|..)." [d|
|000024f0| 65 76 69 63 65 20 64 65 | 76 69 63 65 2d 66 6f 6e |evice de|vice-fon|
|00002500| 74 73 2d 63 61 63 68 65 | 20 65 6c 74 20 64 65 6c |ts-cache| elt del|
|00002510| 71 5d 20 34 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |q] 4]).(|byte-cod|
|00002520| 65 20 22 c0 c1 c2 5c 22 | 88 c3 c4 21 87 22 20 5b |e "...\"|...!." [|
|00002530| 61 64 64 2d 68 6f 6f 6b | 20 64 65 6c 65 74 65 2d |add-hook| delete-|
|00002540| 64 65 76 69 63 65 2d 68 | 6f 6f 6b 20 66 6c 75 73 |device-h|ook flus|
|00002550| 68 2d 64 65 76 69 63 65 | 2d 66 6f 6e 74 73 2d 63 |h-device|-fonts-c|
|00002560| 61 63 68 65 20 70 72 6f | 76 69 64 65 20 78 2d 66 |ache pro|vide x-f|
|00002570| 6f 6e 74 2d 6d 65 6e 75 | 5d 20 33 29 0a          |ont-menu|] 3).   |
+--------+-------------------------+-------------------------+--------+--------+